#! /bin/sh

vnmo=
tnmo=
data=
pmula=0
pmulb=0

## view nmo corrected data in the Radon domain
sunmo  vnmo=$vnmo tnmo=$tnmo < $data |
suradon offref=-3237 interoff=-262 pmin=-2000 \
pmax=2000 dp=16 choose=0 igopt=2 \
depthref=1000 | suximage perc=99 &


## nmo->radon-> inverse NMO: for multiple suppression
sunmo  vnmo=$vnmo tnmo=$tnmo < $data |
suradon offref=-3237 interoff=-287 pmin=-2000 \
pmax=2000 dp=8 choose=1 igopt=2 \
pmula=$pmula pmulb=$pmulb \
depthref=1000 |
sunmo vnmo=$vnmo tnmo=$tnmo invert=1 > radon.$data

# view semblance
suvelan < radon.$data dv=15 fv=1450 nv=200 |
suximage d2=15 f2=1450 cmap=hsv2 bclip=.5 &

exit 0
